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$! 
' 

ise 

$! Facility: 


IDENT v03-008 


Abstract: 


Environment: 


' Parameters: 


Author: 
Created: 


NETCONFIG, Automatic DECnet Database Configurator 


This procedure uses parameter information and the network 1/0 
device environment in which it is run to automaticaily 
configure a DECnet permanent database. 


Executed from the system manager's account on a VAX/VMS 
capable of running DECnet. 


P1 = DECnet node name for this node, 1 to 6 alphabetic 
characters (prompt for if omitted) 

DECnet node number, 0 to 1023 (prompt fer if omitted) 

Do you want a default DECnet acc unt? YES) 

Do you want to run as a router? 

Do you want to startup DECnet? CNO 


wv 
eene 


Tim Halvorsen 
June 1982 


Modifications: 


v03-008 


v03-007 


v03-006 


v03-005 


v03-004 


v03-003 


v03-002 


v03-001 


PRBO342 Paul Beck 22-JUL=1984 21:39 
Fix problem with comment emerging as actual command. 


PRBO339 Paul Beck 27-JUN-1984 20:05 
Offer to configure Cl if PA device is present. 
Offer advice about CI configuration when done. 
Issue warning if no datalinks were defined. 


PRBO333 Paul Beck 26-APR-1984 15:45 

Remove DISUSER flag from default DECnet account, and 

add /NOINTERACTIVE /NOBATCH qualifiers. 

Fix bad address checking and prompt defaulting for areas. 
Autoconfigure devices if minimum boot was done. 


WwHMO0001 Bill Matthews 16-Apr-1984 
Replaced reference to SCSNODEL/H with SCSNODE. 


PRBO315 Paul Beck 2-MAR-1984 12:32 

/PAGINATE changed to /PAGE 

Fix calculation of MAX ADDRESS to omit area portion of address 
Align prompts 


PRBO308 Paul Beck 4-FEB-1984 18:09 
Use TYPE/PAGE to print out List of commands. 

Adjust maximum address if needed. 

Use node name from SYSGEN as default for node name. 


TMHOOO2 Tim Halvorsen 05-0c t-1983 

Add option to setup as router/endnode and to start DECnet 
(without having to exit and run STARTNET). 

Purge desired node name from the remote node database 
before defining the executor. 

Add QNA to the List of known devices. 

Put temporary files in SYSSMANAGER rather than SYSSSYSTEM. 


ROW0194 Ralph 0. Weber 12-JUL-1983 
Add module header. Setup use of Pl through P5 parameters. 


: 
$ REQUIRED_PRIVILEGES = ‘’SYSPRV,OPER" 


rw 
Ss 
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E 6 
$ PREV PRIVS = FSSETPRV(REQUIRED PRIVILEGES) 
$ IF ,AOT. FSPRIVILEGE(REQUIRED_ PRIVILEGES) THEN GOTO NO_PRIVILEGES 
$ ON ERROR THEN GOTO NO CHANGES 
$ ON CONTROL_Y THEN GOTO NO CHANGES 
$ WO PRONE I z 1" :NES. °** .AND. Pe .NES. *"' 
$ IF NO PROMPT THEN GOTO SKIP_IDENTIFICATION 
$ TYPE SYSSINPUT 


DECnet-VAX network configuration procedure 
This procedure will help you cotive the parameters needed to get DECnet 


running on this machine. You will be shown the changes before they are 
executed, in case you wish to perform them manually. 


$ 
SSKIP_IDENTIFI 


CATION: 
$ SMACL_DISK_SYSTEM = (FSGETDVI (''SYSSSYSDEVICE","MAXBLOCK") .LT. 53000 - 
-OR. FSLOG(LIBSSYSDEVICE™) .NES. '"') 
S If FSSEARCH(FSPARSE ("NCP', 'SYSSSYSTEM: .EXE')) .£QS. ‘"' = 
~OR. FSSEARCH(FSPARSE (‘NMLSHR’', ‘SYSSLIBRARY:.EXE")) QS. ‘"" 
OR. FSSEAR ARCH(F SPARSE (““AUTHORIZE™,"'SYSSSYSTEM: .EXE")) .E0S. ‘"* THEN - 
GOTO MISSING TOOLS 
IF FSSEARCH( 'SVSSMANAGER: SHOWDEV. TMP") NES. '** THEN 
DELETE /NOLOG SYSSMANAGER: SHOWDEV. TMP; * “! Delete old versions 
OPEN/WRITE NETCONF IGSFILE SYSSMANAGER : NETCONF IG. TMP 
WRITE NETCONF IGSFILE ‘S$ RUN SYSSSYSTEM:NCP' 


Purge out any existing database 
if SERIE. NETCONE ICSE :NETNODE. DAT") 
IF ee Th RB oe UE A ate -DAT"’) 
IF Peete uttine ieee NETCIRC. DAT’) . 


WRITE NETCON N CIRCUITS “ALL 
IF FSSEARCH(’’SYSSSYSTEM:NETLOGING. DAT") ONES. TH 
WRITE NETCONF IGSFILE PURGE KNOWN LOGGING ALL" 


Always issue the followin PURGES, solely to create a 
null database (so that NML doesn't complain about 
the database not existing during STARINET). 


WRITE NETCONFIGSFILE ‘* PURGE KNOWN OBJECTS ALL’ 
RITE NETCONFIGSFILE *’ PURGE MODULE CONFIGURATOR KNOWN CIRCUITS ALL" 


Prompt for executor address and name 


PPAAPHAHAGAEFEH Ff FF HF PHHHHKEE OH 
ee ft te 


~“— 
“Ea. 


Y Sour PUT ‘Your DECnet node name should match your wade typ ter node name."' 
= A fe SO Want to reenter your DECnet node nam 


$ 
T 
RE /NOPUN 
Hh 3 GOTO PROMPT _NAME 
L NARE: : 
SYSSOUTPUT "ILlegal node name - maximum of 6 characters" 
tT. NAME i= Ae OFAN SCSNODE 

T OnpT = sores NAME + “°* 

B 1 TEN DEFAULT_PROMPT = 


-—SCOoWEer + fomamnd v 
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n./"" THEN NAME = DEFAULT NAME 
CLUSTER-MEMBER™) AND- RANE. .NES. DEFAULT_NAME THEN GOTO WRONG_NAME 


F 6 
. oynat me you want your DECnet node name to be?"', DEFAULT_PROMPT) 
$ 
( 
£08. *** THEN GOTO PROMPT_N 
2 


AME 
NAME) .GT. 6 THEN GOTO” ILLEGAL NAME 
ROMPT = ‘"* 


D S o ome 
ersuiCctusten MEMBER'') .AND. F 
N DEFAULT_ADDRESS = FSGETSYI 
EFA ADDRES S- ~-EQS, *"* THEN ye 


De ear 
Omm~amm~n «ammrnomnmHNna 


=a 7H 


YSTERIO") -NE. 0 = 


A 

D A TH EN 

AULT ADDRESS = = "8 "DEFAULT _AREA.”'D 
R = ‘'('' + DEFAUCT_ADDRESS 

0 $$ 

T 


=: 
9) 


E sys TPUT "Your DECnet node address should match your waRe Cup ter node address."’ 
‘6 ant to reenter your DECnet node address? 

RE/NOPU os 

THEN GOTO PROMPT_ADDRESS 

Ay ADDRESS 

ITE SYSSOUTPUT ‘That is not a legal DECnet node addres “ 

ITE SYSSOUTPUT ‘Legal node eddress range is 1.1 - 63.1023" , 
PT_ADDRESS: . 
60 - FSLENGTH (DEFAULT PROMPT) 

ROMPT = FSFAOC''!*"L*AS!AS", 

"What do You ‘want your DECnet address to be?"’, DEFAULT_PROMPT) 

NQUIRE ADDRESS *** "PROMPT 

gti EQS. *"" THEN ADDRESS = DEFAULT_ADDRESS 
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ADDR 
C_ADDR = ADDRESS 
FSLOCATE(’."’,ADDRESS) .GE. FSLENGTH(ADDRESS) THEN GOTO GOT_LOC 
PSEXTRACT(O ripegrtC Mere ADDRESS) 


AREA = TMP = LOC_ADDR - “’."’ 

ADDR = LOC_AR Ai0be + LOC_ADDR 

OC_AREA .GT. $ THEN GOTO BAD_ADDR 
oc” AREA .LT. 1 THEN GOTO BAD_ADDR 


“toe EADDR .GT. 1023 THEN GOTO BAD ADDR 

C“ADDR ;LT. 1 THEN GOTO BAD ADDR 
SGETSY1 (“CLUSTER MEMBER™) .ARD. FULL_ADDR .NE. FSGETSYI(''SCSSYSTEMID') - 
pittEN GOTO WRONG_ADDRES 
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SSOUTPUT NIL: 
SSERROR NL:’ 
1:N Phos existing entry, if any" 
‘sADDRESS,"* ALL 
“NAME ,** ALL" 


TOR ADDRESS **,ADDRESS,"* STATE ON’ 
OR NAME *', NAME 
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LOC_ADDR® 
IMUM ADDRESS *'MAX_ADDR''’ 


cool 
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! 
: See if we should be router or enanode (endnode preferred) 
$ EXEC_TYPE = “WONROUTING IV’ 
7 REPLY = sae 
$ IF REPLY . $ THEN GOTO TEST _EXEC_TYPE 
$ IF NO_PROMP pale taco. 7 
pet, oy ter? [NO (nonrout ing) 3” 
ce ee router? nonrou 

$ IF REPLY Eas.“ mnt he 2S ” 
STEST wi C_TYPE 
$ If REPLY“THEN EXEC _TYPE = “ROUTING Iv" 
SSET_EXEC TYPE: 
$ varie NETCONFIGSFILE “ DEFINE EXECUTOR TYPE “EMEC TYP. 
: ; See if default DECnet account is oesired 
$ IF NO_PROMPT THEN GOTO MAKE_DEF_ACCOUNT 
$ REPLY = P3 ’ 
$ IF REPLY .NES. ‘"* THEN GOTO TEST _DEF ACC 
$ INQUIRE REPLY - 7 

Do Re ant @ default DECnet acc mw (ves) 
S$ IF REPLY .EQS. THEN REPLY = “YES” 
STEST_DEFACC: 
$ IF .NOT. REPLY THEN GOTO NO_DEFACC 
SMAKE DEF ACCOUNT: 
$ WRITE NETCONF 1G8F ILE 5 ME EO GaPR VIL EGED USER DECNET™ 
$ WRITE NETCONF IGSFIL = Fim «%< * mone iv 1 LEGED PASSWORD DECNET"’ 
$ WRITE a Tee tear it DEF INE/UL CR au SYSSSYSTER: SYSuaf DAT 
$ WRITE NETCONF I ILE “S RUN SYSSSYSTER: mene DE 
$ WRITE NETCONFIGSFILE * ADD DECNET /OuNER=" al pefaut’™* -"" 
$ WRITE NETCONFIGSFILE * /PAS cy 
$ WRITE NETCONF IGSFILE °° /ulC=(376, T=DECNET 
4 wee NE TCONF IGSF IL /oevi EsSisserspevict: 7DIREE TORY=CDE CNET} -' 
$ WRITE NETCONFIGSFILE ** /PRIVIL Let TMBX) 
$ WRITE NETCONFIGSFILE °° /FLAGS=(CAPTI } ali 1CRDsMt : a 
$ WRITE NETCONF IGSFIL oe sD /wO + 
$ IF .NOT. SMALL_DISK_SYSTEM THEN - | If ALO2 t network . ; 

WRITE NETCONFIGSFILE ‘S$ CRE aint Ory Ren evice: CDE CNET) LOUNER=C376, 376)’ 
$ If SMALL DISK_SYSTEM THEN WRITE mal oy nt out @ message : 

‘This iS a small disk syaten, souteer a result, the default DECnet account’ 
$ If SMALL DISK_SYSTEM THEN WRITE SYSS$OU 

will be getup *g that .LOG files ein mot be created for network jobs."’ 
$ WRITE NETCONF IGSFIL RUN SYSSSYSTEM:NCP 
gen DEF ACC: 
. Get various communications devices (by doing a SHOW DEVICE) 
$ STARTUP_P1 := FSGETSYIC ere ws 
$ TEMP = FSLOCA *TSLENG bat ARTUP_PT) 
$ IF TEMP nSTARTUP™ P1) THEN GOTO CONFIGURED 
$ IF TE THEN F IGUR 
: rth Ay s$ouTPUT Migimol: ai was booted." 

Fos y you want to perform SYSGEN AUTOCONFIGURE ALL? CYES)" 
$ IF @ .EQS. THEN Q = “‘y"’ 
$ IF .NOT. @ THEN GOTO CONF IGURED 
$ RUN SYSSSYSTEM:SYSGEN 
SUTOCOM LURE L 
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$ FOUND.CI1 = 0 

$ DEFINE/USER SYSSOUTPUT SYSSMANAGER:SHOWDEV.THP, a 
$ OPEN/READ NETCONF IGSSHOWDEV SYSSMANAGER: SHOWDEV. TMP = ve ee 
$ READ NETCONF 1eSSHOCBEY LINES | Read header Li 

$ READ NETCONF IGSSHOKDEV LINE Proms ro simess  as 

$ READ NETCONF IGSSHOWDEV LINE 

SREAD NEXT DEVICE: 

$ READ NETCONF IGSSHOWDEV LINE - ' Read next Line in file 

430, /END-OF .FILE=NO_MORE DEVICES 

$ IF FSEXTRACT(O,1,LINE) .NES. '' '' THEN GOTO 40 ! Skip Leadi Lank 

$ LINE = FSEXTRACT(1,999, LINED oe oo 

$ S010 50 

$40: 


GOTO READ_NEXT_DEVICE ! Skip spurious Lines 
! Get device name from Line 


a4 


TC 
SEXTRACT(O,FSLE 
SSTRING(FSCVUI ( 
.EQS. "'XM'’ TH 
se 
“E 


<< 


$s 
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DEVTYPE .E€QS. ‘PA’ THEN GOTO PA 
TO READ_NEXT_DEVICE 
DATALINK = “DMC-"" + DEVCONT 
COST = 
GoTo POINT_TO_POINT 
DATALINK = “DMP="" + DEVCONT 
COST = 
GOTO POINT_TO_POINT 
$ DATALINK = “DMF-"" + DEVCONT 
$ COST = 
$ GOTO POINT_TO_POINT 
IF DEVUNIT .NE. 0 THEN GOTO READ_NEXT_DEVICE ! Ignore cloned UCBs 
$ DATAL iN = "UNA-"' + DEVCONT 
= 


GOTO POINT_TO_POINT 
SQNA: 
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bad 
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$ IF DEVUNIT .NE. 0 THEN GOTO READ_NEXT_DEVICE ! Ignore cloned UCBs 

$ DATALINK = "‘QNA-"' + DEVCONT 

$ COST = 4 

B gore POINT_TO_POINT 

$ IF DEVUNIT ,NE. 0 THEN GOTO READ_NEXT_DEVICE ! Ignore cloned UCBs 

$ DATALINK = "UE-"" + DEVCONT 

$ COST = 4 

SPOINT TO POINT: 

$ WRITE NETCONFIGSFILE ‘' DEFINE LINE — “*,DATALINK,': STATE ON" ! 
$ WRITE NETCONF IGSFILE DEFINE CIRCUIT *',DATALINK,”’ STATE ON COST *’,COST 
$ FOUND_DATALINK = 1 
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p gore READ _NEXT_DEVICE 


$ 
$ FOUND PA = 1 
B gore 0 READ. -NEXT_DEVICE 
$ oar = “Cl io 
$ WRITE NE TCONF 1G SF ILE ’ DEFINE LINE "*,DATALINK,’’ STATE ON’ 
$ FOUND_DAT 
$ FOUND-C 
s © GOTO READ. -NEXT_DEVICE 
SNO_MORE DEVICES: 
$ CCOSE RETCONFIGSSHOWDEV 
. DELET E /NOLOG SYSSMANAGER:SHOWDEV. TMP; * 
: : See if we need to interrogate for CNDRIVER. 
$ IF FOUND_PA .€Q. 0 THEN GOTO NO_CI 
$ IF FOUND'CI .£Q. 1 THEN GOTO NO_CI 
% nen. G - 
Do you vont go use, the CI as a DECnet datalink? CNOJ"' 
$ IF @ .EQS. *'N' 
$ IF .NOT. Q THEN" GOTO NO_ CI 
$ DATALINK = ‘‘C]-0"' 
$ WRITE NET CONF IGSFILE = DEFINE LINE **,DATALINK,’’ STATE ON’ 
$ FOUND_DAT ~~ 1 
$ FOUND_PA = 
$ FOUND_CI = 1 
snp_cl 2 
: Setup default logging database 
$ WRITE NETCONFIGSFILE °° DEFINE LOGGING MONITOR STATE ON’ 
$ WRITE NETCONFIGSFILE *' DEFINE LOGGING MONITOR EVENTS 0.0-9"' 
$ WRITE NETCONFIGSFILE °° DEFINE LOGGING MONITOR EVENTS ¢-3- -1' 
$ WRITE NETCONFIGSFILE °° DEFINE LOGGING MONITOR EVENTS 4.2-13,15-16,18-19"" 
$ WRITE NETCONFIGSFILE °° DEFINE LOGGING MONITOR EVENTS 5,0-18"' | 
$ WRITE NETCONFIGSFILE ° DEFINE LOGGING MONITOR EVENTS 128.0-4' 
: CLOSE NETCONF IGSF ILE 
. : Ask user if he wants to do it 
$ IF NO_PROMPT pen GOTO DO_DECNET_SETUP 
$ TYPE SYSSINPU 


Here are the commands necessary to setup your system. 


$ TYPE/PAGE SYSSMANAGER : NETCONF IG. TMP 
$ TYPE SYSSINPUT 


$ IF FOUND DATALINK .€Q. 0 THEN 

WRITE SYSSOUTPUT “WARNING: no Lines have been d defined.” 
$ INQUIRE REPLY “Do you want to 99 ahead and do it? CYES]’ 
REPLY HEN REPLY = ‘'YES' 
$ IF peor SE rte: LY THEN GOTO NO_CHANGES 


$ aSYSSMANAGER =NET CONF 1G. TMP 
$ IF NO prow THEN GOTO EXIT 
$ TYPE S$ 


The changes have been made. 
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J 6 
If you have not already installed the DECnet-VAX License, then do so now. 
After the License has been engees tee, ye should invoke the procedure 


SYSSMANAGER:STARTNET.COM to startup net-VAX with these changes. 


EPLY = PS : 
F REPLY .NES. ‘"* THEN GOTO TEST_STARTNET 
NQUIRE REPLY = 
(If the license is already installed) Do you want DECnet started? CYES]" 
REPLY .EQS. °"’ THEN REPLY = “‘YES"’ 
T_STARTNET: 
«NOT. REPLY THEN GOTO NO_STARTNET 


Connect CNDRIVER if it hasn't been done aiready. 


FOUND _PA_ .NE. 2 THEN GOTO START_NETWORK 
SYSSSYSTEM:SYSGEN 

T CNAO /NOADAPT /DRIVER=SYSSSYSTEM: CNDRIVER.EXE 
ART_NETWORK: 

SSMANAGER : STARTNET 
TARTNET: 

FOUND_CI .£Q. 0 THEN GOTO EXIT 
PE SYSSINPUT 


will have to define a circuit for each VAXcluster node to which you 

ill be making DECnet connections using the CJ. Do this by specifying each 
node*s CI port address as a tributary number. For example, to create circuits 
to the nodes having CI ports 1 and 2, enter the following commands: 


NCP> DEFINE CIRCUIT CI-0.1 STATE ON TRIBUTARY 1 
NCP> DEFINE CIRCUIT CI1-0.2 STATE ON TRIBUTARY 2 


Also, be sure you have added the commands 


RUN SYSSSYSTEM:SYSGEN 
SYSGEN> CONNECT CNAO /NOADAPT /DRIVER=SYSSSYSTEM: CNDRIVER.EXE 


to your site-specific startup command procedure prior to calling STARTNET.COM. 
$ GOTO EXIT 
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HANGES: 
$ WRITE SYSSOUTPUT "No changes have been made."' 
wie 


HOW 
TE /NOLOG SYSSMANAGER: SHOWDEV. TMP; * 
* NES. ries THEN Ss 


LOSE NETC L 

$ IF FSSEARCH(SYSSMANAGERSNETCONF 1G. TP") -NES. °"’ THEN = 
ELETE /NOLOG SYSSMANAGER:NETCONF IG. TMP; * 

$ PREV_PRIVS = FSSETPRV(PREV_PRIVS) 


: EXIT 7 
$NO hl att 23 
$ WRITE SYSSOUTPUT ‘‘Insufficient privileges to run this procedure.” 
$ WRITE SYSSOUTPUT “Requires *',REQUIRED_PRIVILEGES,”’ privileges. 
: TO NO_CHANGES 
SMISS T 
I Y 
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WRITE SYSS$OU yreyt “NCP suTMrize ond Spe ane LOL Some are required." 
IF SMALL_DISK_SYSTEM THEN WRITE SYSSOUTPUT - c 
‘You shos uld ts lor in the DECNET and MANAGER groups to use this procedure. 
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$ GOTO NO. CHANGE ANGE S 


o 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$! 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


0232 Vax/vns v4-o 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


